-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 3333
-- card count: 12
-- first card id: 5525
-- list block id: 5261
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 1
-- free size: 3584 bytes
-- total size: 32768 bytes
-- stack block size: 2560 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global menu1, menu2
  hide message
  put NewMenu("Beep","Once","Twice","(-","Boing/9") into menu1
  put NewMenu("Visual","Effect 1","(Effect 2") into menu2
end openStack

on closeStack
  global menu1, menu2
  put DeleteMenu(menu1) into menu1
  put DeleteMenu(menu2) into menu2
end closeStack

on idle
  global menu1, menu2, lastTick
  if (the ticks-lastTick)>120 then
    put the ticks into lastTick
    ShowMenu menu1
    ShowMenu menu2
  end if
  pass idle
end idle

on doMenu which
  global menu1, menu2
  if which is "Once" then
    beep 1
    CheckMenu menu1,1,true
  else if which is "Twice" then
    beep 1
    wait 4
    beep 1
    CheckMenu menu1,2,true
  else if which is "Boing" then
    play "Boing"
    CheckMenu menu1,4,true
  else if which is "Effect 1" then
    push card
    visual effect dissolve to black
    EnableMenu menu2,1,false
    EnableMenu menu2,2,true
    pop card
  else if which is "Effect 2" then
    push card
    visual effect dissolve to white
    pop card
    EnableMenu menu2,1,true
    EnableMenu menu2,2,false
  else
    pass doMenu
  end if
end doMenu